home *** CD-ROM | disk | FTP | other *** search
- /* Interaktiver Test für EasyVideo
- (c) Jörg Trahm
- */
-
- address "EasyVideo"
- options prompt "EVideo > "
- options results
- start:
- signal on syntax
- signal on error
- do forever
- parse pull input
- interpret input
- say result
- end
-
- syntax:
- say "Fehler" rc "in Zeile" sig1":" errortext(rc)
- signal start
-
- error:
- say "Rückkehrcode:" rc
- signal start
-
-